home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / BSCRIPTS.CST / 00009_Script_rotate image < prev    next >
Text File  |  1999-04-25  |  1KB  |  59 lines
  1. -- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
  2. -- Developed for Bombardier, Inc.
  3. --
  4. -- All programming developed by: 
  5. -- Robert Fabricant, Valerie Valoueva, Ossi Shaked, 
  6. -- Henry Sauvageot, Chris Howell & Chris Girand
  7. --
  8. -- Use of this code by parties other than @radical.media, inc. or their
  9. --agents 
  10. -- without the express written consent of @radical.media, inc. AND Concurrent 
  11. -- New Media Group, L.L.C. is strictly prohibited.
  12. ------------------------------------------------------
  13.  
  14. property sprt
  15.  
  16. on getPropertyDescriptionList
  17.   set description=[:]
  18.   
  19.   addProp description,#sprt,[#default:6,#format:#integer,#comment:¼
  20. "the sprite number "]
  21.   
  22.   return description
  23. end
  24.  
  25. on getBehaviorDescription
  26.   return "simulates 2D object movie. rotates the images"
  27. end
  28.  
  29. on mousedown
  30.   global oldIndex,sseq,eseq
  31.   
  32.   repeat while the mouseDown
  33.     
  34.     set index = the mouseh
  35.     put index
  36.     if index < oldIndex and oldIndex <> 0 ¼
  37. or index < 50 then
  38.       if the frame = eseq then go to frame sseq
  39.       else go to the frame +1
  40.     else 
  41.       if index > oldIndex and oldIndex <> 0  ¼
  42. or index > 550 then
  43.         
  44.         if the frame = sseq then go to frame eseq
  45.         else go to the frame -1
  46.       end if
  47.     end if
  48.     updateStage
  49.     set oldIndex = index
  50.   end repeat
  51.   pass
  52. end
  53.  
  54. on mouseup 
  55.   global oldIndex
  56.   set oldIndex = 0
  57.   pass
  58. end
  59.